10 POKE53280,0:POKE53281,0:POKE646,2:PRINT"[147]"
20 PRINT"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";
21 PRINT"[180]                                      [170]";
22 PRINT"[180]         [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]         [170]";
23 PRINT"[180]         [194]    RATE MAL!!    [194]         [170]";
24 PRINT"[180]         [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]         [170]";
25 PRINT"[180]                                      [170]";
26 PRINT"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
50 N=7:T=0
55 DIMA(N):FORJ=1TON:A(J)=J:NEXTJ:
60 PRINT"[156]TIPP MAL 'NE ZAHL EIN!      (1 BIS 7)":INPUTS$:S=VAL(S$):S=S/7
70 FORI=1TON:Q=(S+3.14159265)^3:S=Q-INT(Q)
80 J=INT(S*N+1):P=A(I):A(I)=A(J):A(J)=P:NEXT I
90 PRINT"[129]WIEVIEL FRAGEN WILLST DU?   ( MAX";N;")":INPUTM:PRINT
100 IFM>NTHEN90
110 FORI=1TOM:PRINT"[158]FRAGE NR. ";I:J=A(I):PRINT
120 IF J= 7THEN130
130 ONJ GOSUB230,300,440,510,580,650,850  :GOTO150
150 PRINT"[152]WAEHLE ANTWORT A, B, C ODER D";:INPUTY$:
160 IFZ$<>Y$THENPRINT"FALSCHE ANTWORT!":GOTO180:
170 PRINT"        R I C H T I G ![146]":D=D+1:PRINT
180 PRINT"[149]   BIN GESPANNT, WIE GUT DU BIST "
190 PRINT:PRINT:NEXTI
200 PRINT"  NA JA,          ";D;"RICHTIGE":PRINT
210 PRINT"[155]  UND             ";M-D;"FALSCH!":PRINT
220 PRINT" DAS GESAMTERGEBNIS=  ";D/(I-1)*100;"%":END
230 Z$="C":
240 PRINT"[154] KAESE IST ="
250 PRINT"[153]A: EIN ODEUR PAR EXCELLENCE"
260 PRINT"B: EIN PENDANT ZUM FAULEN EI"
270 PRINT"C: SYNONYM FUER 'SO EIN MIST'"
280 PRINT"D: DIE HAUPTSTADT VON HOLLAND"
290 RETURN
300 Z$="B"
310 PRINT"[154] ZITRONEN SIND ="
320 PRINT"[153] A: ANTIKE UNGEHEUER"
330 PRINT"B: HANDELSWARE DER PECHVOEGEL"
340 PRINT"C: AUS DEM LAUF GEZOGENE PATRONEN"
350 PRINT"D: ANGEFANGENE SCHMETTERLINGE"
360 RETURN
440 Z$="D"
450 PRINT"[154] EIN 'NICHTS' IST ="
460 PRINT"[153]A: UNENDLICHKEIT ZUM 'REINFALLEN"
470 PRINT"B: EIN FEHLERHAFTES MAEDCHEN"
480 PRINT"C: GERUCHLOSER KNOBLAUCH"
490 PRINT"D: EIN LUFTBALLON OHNE PELLE"
500 RETURN
510 Z$="B"
520 PRINT"[154] EINE KLAPPERSCHLANGE IST =":
530 PRINT"[153]A: EINE ART VOGELSCHEUCHE"
540 PRINT"B: 'NE SCHLANGE IM SCHNEE"
550 PRINT"C: HANDWERKS-ZUBEHOER"
560 PRINT"D: 'NE LANGE REIHE KLAPPERN"
570 RETURN
580 Z$="C"
590 PRINT"[154] NETZE SIND = "
600 PRINT"[153]A: WAS ZUM UEBERZIEHEN"
610 PRINT"B: PRODUKTE VON SPINNERN"
620 PRINT"C: ZUSAMMENGEKNOTETE LOECHER"
630 PRINT"D: VERKLEIDETE FALLSTRICKE"
640 RETURN
650 Z$="C"
660 PRINT"[154] KNETE IST = "
670 PRINT"[153]A: GEBRAUCHTER KAUGUMMI"
680 PRINT"B: WAS MAN NIE GENUG HAT"
690 PRINT"C: GEHIRN-SURROGAT"
700 PRINT"D: SCHOEPFUNGS-GRUNDSTOFF"
710 RETURN:
850 Z$="C"
860 PRINT"[154] EIN MAGNET IST ="
870 PRINT"[153]A: EIN ZUGPFERD-VERWANDTER"
880 PRINT"B: TEIL DES NORDPOLS"
890 PRINT"C: 'NEIN'; Z. B. IN BAYERN"
900 PRINT"D: FAST EIN GROSSER HERR"
910 RETURN